home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / pascal3 / pro22 / dt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  1.6 KB  |  61 lines
  1. Program Stamp;
  2. {
  3. By Timothy B. Coleman.  This program usses Turbo Pascal Ver. 4's Date and time
  4. Procedures, bu produces a larger .EXE file than the larger source in STAMP.PAS.
  5.  }
  6. Uses DOS;
  7.  
  8. Var
  9.       ThisDate        : String[15];
  10.       Time       : String[15];
  11.  
  12. PROCEDURE TPDate;
  13.  
  14. Type
  15.   String9 = String[9];
  16.  
  17. Const
  18.   MonthNames : array [1..12] of String9 =
  19.   ('January','February','March','April','May','June',
  20.    'July','August','September','October','November','December');
  21.  
  22. VAR
  23. Year,Month,Day,DayOfWeek : Word;
  24. Temp1, DateString, Temp2 : String[16];
  25. Begin
  26.       GetDate(Year,Month,Day,DayOfWeek);
  27.       Str(Year,Temp1);
  28.       DateString :=  MonthNames[Month];
  29.       Str(Day,Temp2);
  30.       DateString := DateString  + ' ' + Temp2 + ', ' + Temp1;
  31.       ThisDate := Datestring;
  32. end;
  33.  
  34. Procedure TPTime;
  35.  
  36. Var
  37. TimeString  :  String[16];
  38. TempTime    :  String[5];
  39. Hours, Minutes, Seconds,Hundredths : Word;
  40.  
  41. Begin
  42.   GetTime(Hours,Minutes,Seconds,Hundredths);
  43.   Str(Hours,TempTime);
  44.   If length(TempTime) = 1 Then TempTime := '0' + TempTime;
  45.   TimeString := TempTime + ':';
  46.   Str(Minutes,TempTime);
  47.   If length(TempTime) = 1 Then TempTime := '0' + TempTime;
  48.   TimeString := TimeString + TempTime + ':';
  49.   Str(Seconds,TempTime);
  50.   If length(TempTime) = 1 Then TempTime := '0' + TempTime;
  51.   TimeString := Timestring + Temptime;
  52.   Time := TimeString;
  53. end;   { GetTime }
  54.  
  55. Begin         {main}
  56.   TPDate;
  57.   TPTime;
  58.   Writeln('Date and Time:  ',ThisDate,'   ',Time); {No Direct video so
  59.   redirectable to a file or printer, serial or par.}
  60. end.
  61.